home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / biz / dopus / DOpus414JRsrc.lha / DirectoryOpus4 / Library / dopuslib.a < prev    next >
Text File  |  2000-04-01  |  11KB  |  572 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ;
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27.  
  28.     section LibBases,data
  29.  
  30.     XDEF _SysBase
  31.     XDEF _DOpusBase
  32.     XDEF _IntuitionBase
  33.     XDEF _GfxBase
  34.     XDEF _DOSBase
  35.     XDEF _LayersBase
  36.     XDEF ___MathIeeeSingBasBase
  37.  
  38. _SysBase:
  39.     dc.l 0
  40. _DOpusBase:
  41.     dc.l 0
  42. _IntuitionBase:
  43.     dc.l 0
  44. _GfxBase:
  45.     dc.l 0
  46. _DOSBase:
  47.     dc.l 0
  48. _LayersBase:
  49.     dc.l 0
  50. ___MathIeeeSingBasBase:
  51.     dc.l 0
  52.  
  53.     SECTION .text
  54.  
  55.     INCLUDE "exec/types.i"
  56.     INCLUDE "exec/initializers.i"
  57.     INCLUDE "exec/libraries.i"
  58.     INCLUDE "exec/lists.i"
  59.     INCLUDE "exec/alerts.i"
  60.     INCLUDE "exec/resident.i"
  61.     INCLUDE "exec/ports.i"
  62.     INCLUDE "exec/io.i"
  63.     INCLUDE "libraries/dos.i"
  64.     INCLUDE "graphics/rastport.i"
  65.  
  66.     INCLUDE "asmsupp.i"
  67.     INCLUDE "dopusbase.i"
  68.  
  69. * Functions.a
  70.  
  71.     XREF endcode
  72.     XREF GetWBScreen
  73.     XREF Seed
  74.     XREF Random
  75.     XREF StrToUpper
  76.     XREF StrToLower
  77.     XREF DisableGadget
  78.     XREF EnableGadget
  79.     XREF GhostGadget
  80.     XREF _SwapMem
  81.     XREF _LSprintf
  82.     XREF LSprintf
  83.     XREF LCreateExtIO
  84.     XREF LCreatePort
  85.     XREF LDeleteExtIO
  86.     XREF LDeletePort
  87.     XREF LToUpper
  88.     XREF LToLower
  89.     XREF LStrCat
  90.     XREF LStrnCat
  91.     XREF LStrCpy
  92.     XREF LStrnCpy
  93.     XREF LStrCmpI
  94.     XREF LStrnCmpI
  95.     XREF LStrCmp
  96.     XREF LStrnCmp
  97.  
  98. * Functions2.a
  99.  
  100.     XREF BtoCStr
  101.     XREF ActivateStrGad
  102.     XREF RefreshStrGad
  103.  
  104. * Graphics.a
  105.  
  106.     XREF Do3DBox
  107.     XREF Do3DStringBox
  108.     XREF Do3DCycleBox
  109.     XREF DrawCheckMark
  110.     XREF HiliteGad
  111.  
  112. * Filereq.c
  113.  
  114.     XREF _DoFileRequest
  115.     XREF _DoSetBusyPointer
  116.  
  117. * Wildcard.c
  118.  
  119.     XREF _DoParsePattern
  120.     XREF _DoMatchPattern
  121.  
  122. * Dosstuff.c
  123.  
  124.     XREF _DoAssign
  125.     XREF _DoBaseName
  126.     XREF _DoCompareLock
  127.     XREF _DoPathName
  128.     XREF _DoSendPacket
  129.     XREF _DoTackOn
  130.     XREF _DoStampToStr
  131.     XREF _DoStrToStamp
  132.     XREF _DoAllocRemember
  133.     XREF _DoFreeRemember
  134.     XREF _DoFreeRemEntry
  135.     XREF _DoCompareDate
  136.     XREF _DoDoArrow
  137.     XREF _DoStrCombine
  138.     XREF _DoStrConcat
  139.     XREF _DoDecode_RLE
  140.  
  141. * Dosstuff2.c
  142.  
  143.     XREF _DoSearchPathList
  144.     XREF _DoCheckExist
  145.     XREF _DoRawkeyToStr
  146.     XREF _DoDoRMBGadget
  147.     XREF _DoAddGadgets
  148.     XREF _DoCheckNumGad
  149.     XREF _DoCheckHexGad
  150.     XREF _DoAtoh
  151.     XREF _DoDoSimpleRequest
  152.     XREF _DoDoCycleGadget
  153.     XREF _DoDrawRadioButton
  154.     XREF _DoGetButtonImage
  155.     XREF _DoGetCheckImage
  156.     XREF _DoUScoreText
  157.     XREF _DoDo3DFrame
  158.     XREF _DoDoGlassImage
  159.  
  160. * Dosstuff3.c
  161.  
  162.     XREF _DoReadConfig
  163.     XREF _DoSaveConfig
  164.     XREF _DoDefaultConfig
  165.     XREF _DoGetDevices
  166.     XREF _DoAssignGadget
  167.     XREF _DoAssignMenu
  168.     XREF _DoFreeConfig
  169.     XREF _DoCheckConfig
  170.     XREF _DoFindSystemFile
  171.  
  172. * Listview.c
  173.  
  174.     XREF _DoAddListView
  175.     XREF _DoListViewIDCMP
  176.     XREF _DoRemoveListView
  177.     XREF _DoRefreshListView
  178.     XREF _DoFixSliderBody
  179.     XREF _DoFixSliderPot
  180.     XREF _DoGetSliderPos
  181.     XREF _DoShowSlider
  182.  
  183. * Requesters.c
  184.  
  185.     XREF _R_OpenRequester
  186.     XREF _R_CloseRequester
  187.     XREF _R_AddRequesterObject
  188.     XREF _R_RefreshRequesterObject
  189.     XREF _R_ObjectText
  190.  
  191. * Language.c
  192.  
  193.     XREF _DoReadStringFile
  194.     XREF _DoFreeStringFile
  195.  
  196. * Borders.c
  197.  
  198.     XREF _DoAddGadgetBorders
  199.     XREF _DoCreateGadgetBorders
  200.     XREF _DoSelectGadget
  201.  
  202. * Menus.c
  203.  
  204.     XREF _DoFSSetMenuStrip
  205.  
  206. * Chip data
  207.  
  208.     XREF _pdb_cycletop
  209.     XREF _pdb_cyclebot
  210.     XREF _pdb_check
  211.  
  212. * Objects
  213.  
  214. ;    XREF _SysBase
  215. ;    XREF _DOpusBase
  216. ;    XREF _IntuitionBase
  217. ;    XREF _GfxBase
  218. ;    XREF _DOSBase
  219. ;    XREF _LayersBase
  220. ;    XREF ___MathIeeeSingBasBase
  221.  
  222. start:
  223.     moveq #0,d0
  224.     rts
  225.  
  226. romtag:
  227.     dc.w RTC_MATCHWORD
  228.     dc.l romtag
  229.     dc.l endcode
  230.     dc.b RTF_AUTOINIT
  231.     dc.b VERSION
  232.     dc.b NT_LIBRARY
  233.     dc.b 0
  234.     dc.l dopusname
  235.     dc.l idstring
  236.     dc.l init
  237.  
  238. VERSION  equ 22
  239. REVISION equ 8
  240.  
  241. dopusname:
  242.     DOPUSNAME
  243.  
  244. idstring:
  245.     dc.b 'dopus.library 22.8 (01 Apr 2000) made under GPL license by Jacek Rzeuski',13,10,0
  246.  
  247. dosname:
  248.     dc.b 'dos.library',0
  249. intuitionname:
  250.     dc.b 'intuition.library',0
  251. graphicsname:
  252.     dc.b 'graphics.library',0
  253. layersname:
  254.     dc.b 'layers.library',0
  255. mathieeesingbasname:
  256.     dc.b 'mathieeesingbas.library',0
  257.     ds.w 0
  258.  
  259. init:
  260.     dc.l DOpusBase_SIZEOF
  261.     dc.l functable
  262.     dc.l datatable
  263.     dc.l initroutine
  264.  
  265. functable:
  266.     dc.l Open
  267.     dc.l Close
  268.     dc.l Expunge
  269.     dc.l Null
  270.     dc.l _DoFileRequest
  271.     dc.l Do3DBox
  272.     dc.l Do3DStringBox
  273.     dc.l Do3DCycleBox
  274.     dc.l _DoDoArrow
  275.     dc.l LSprintf
  276.     dc.l LCreateExtIO
  277.     dc.l LCreatePort
  278.     dc.l LDeleteExtIO
  279.     dc.l LDeletePort
  280.     dc.l LToUpper
  281.     dc.l LToLower
  282.     dc.l LStrCat
  283.     dc.l LStrnCat
  284.     dc.l LStrCpy
  285.     dc.l LStrnCpy
  286.     dc.l LStrCmp
  287.     dc.l LStrnCmp
  288.     dc.l LStrCmpI
  289.     dc.l LStrnCmpI
  290.     dc.l _DoStrCombine
  291.     dc.l _DoStrConcat
  292.     dc.l LParsePattern
  293.     dc.l LMatchPattern
  294.     dc.l LParsePatternI
  295.     dc.l LMatchPatternI
  296.     dc.l BtoCStr
  297.     dc.l _DoAssign
  298.     dc.l _DoBaseName
  299.     dc.l _DoCompareLock
  300.     dc.l _DoPathName
  301.     dc.l _DoSendPacket
  302.     dc.l _DoTackOn
  303.     dc.l _DoStampToStr
  304.     dc.l _DoStrToStamp
  305.     dc.l _DoAddListView
  306.     dc.l _DoListViewIDCMP
  307.     dc.l _DoRefreshListView
  308.     dc.l _DoRemoveListView
  309.     dc.l DrawCheckMark
  310.     dc.l FixSliderBody
  311.     dc.l FixSliderPot
  312.     dc.l GetSliderPos
  313.     dc.l _DoAllocRemember
  314.     dc.l _DoFreeRemember
  315.     dc.l _DoSetBusyPointer
  316.     dc.l GetWBScreen
  317.     dc.l _DoSearchPathList
  318.     dc.l _DoCheckExist
  319.     dc.l _DoCompareDate
  320.     dc.l Seed
  321.     dc.l Random
  322.     dc.l StrToUpper
  323.     dc.l StrToLower
  324.     dc.l _DoRawkeyToStr
  325.     dc.l _DoDoRMBGadget
  326.     dc.l _DoAddGadgets
  327.     dc.l ActivateStrGad
  328.     dc.l RefreshStrGad
  329.     dc.l _DoCheckNumGad
  330.     dc.l _DoCheckHexGad
  331.     dc.l _DoAtoh
  332.     dc.l HiliteGad
  333.     dc.l _DoDoSimpleRequest
  334.     dc.l _DoReadConfig
  335.     dc.l _DoSaveConfig
  336.     dc.l _DoDefaultConfig
  337.     dc.l _DoGetDevices
  338.     dc.l _DoAssignGadget
  339.     dc.l _DoAssignMenu
  340.     dc.l _DoFindSystemFile
  341.     dc.l _DoDo3DFrame
  342.     dc.l _DoFreeConfig
  343.     dc.l _DoDoCycleGadget
  344.     dc.l _DoUScoreText
  345.     dc.l DisableGadget
  346.     dc.l EnableGadget
  347.     dc.l GhostGadget
  348.     dc.l _DoDrawRadioButton
  349.     dc.l _DoGetButtonImage
  350.     dc.l _DoShowSlider
  351.     dc.l _DoCheckConfig
  352.     dc.l _DoGetCheckImage
  353.     dc.l _R_OpenRequester
  354.     dc.l _R_CloseRequester
  355.     dc.l _R_AddRequesterObject
  356.     dc.l _R_RefreshRequesterObject
  357.     dc.l DoObjectText
  358.     dc.l _DoDoGlassImage
  359.     dc.l _DoDecode_RLE
  360.     dc.l _DoReadStringFile
  361.     dc.l _DoFreeStringFile
  362.     dc.l _DoFreeRemEntry
  363.     dc.l _DoAddGadgetBorders
  364.     dc.l _DoCreateGadgetBorders
  365.     dc.l _DoSelectGadget
  366.     dc.l _DoFSSetMenuStrip
  367.     dc.l -1
  368.  
  369. datatable:
  370.     INITBYTE LN_TYPE,NT_LIBRARY
  371.     INITLONG LN_NAME,dopusname
  372.     INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED
  373.     INITWORD LIB_VERSION,VERSION
  374.     INITWORD LIB_REVISION,REVISION
  375.     INITLONG LIB_IDSTRING,idstring
  376.     dc.l 0
  377.  
  378. initroutine:
  379.     move.l a5,-(sp)
  380.     move.l d0,a5
  381.     move.l a6,db_ExecBase(a5)
  382.     move.l a6,_SysBase
  383.     move.l a0,db_SegList(a5)
  384.  
  385.     move.l a5,_DOpusBase
  386.  
  387.     lea dosname(pc),a1
  388.     moveq.l #39,d0
  389.     move.l 4,a6
  390.     jsr _LVOOpenLibrary(a6)
  391.     move.l d0,db_DOSBase(a5)
  392.     move.l d0,_DOSBase
  393.  
  394.     lea intuitionname(pc),a1
  395.     moveq.l #39,d0
  396.     jsr _LVOOpenLibrary(a6)
  397.     move.l d0,db_IntuitionBase(a5)
  398.     move.l d0,_IntuitionBase
  399.  
  400.     lea graphicsname(pc),a1
  401.     moveq.l #39,d0
  402.     jsr _LVOOpenLibrary(a6)
  403.     move.l d0,db_GfxBase(a5)
  404.     move.l d0,_GfxBase
  405.  
  406.     lea layersname(pc),a1
  407.     moveq.l #39,d0
  408.     jsr _LVOOpenLibrary(a6)
  409.     move.l d0,db_LayersBase(a5)
  410.     move.l d0,_LayersBase
  411.  
  412.     lea mathieeesingbasname(pc),a1
  413.     moveq.l #0,d0
  414.     jsr _LVOOpenLibrary(a6)
  415. ;   move.l d0,db_MathIeeeSingBasBase(a5)
  416.     move.l d0,___MathIeeeSingBasBase
  417.  
  418. ;   jsr _init_dopus_library
  419.  
  420.     lea.l _pdb_cycletop,a0
  421.     move.l a0,pdb_cycletop(a5)
  422.  
  423.     lea.l _pdb_cyclebot,a0
  424.     move.l a0,pdb_cyclebot(a5)
  425.  
  426.     lea.l _pdb_check,a0
  427.     move.l a0,pdb_check(a5)
  428.  
  429.     move.l #0,pdb_Flags(a5)
  430.  
  431.     move.l 4,a6
  432.     move.l a5,d0
  433.     move.l (sp)+,a5
  434.     rts
  435.  
  436. Open:
  437.     addq.w #1,LIB_OPENCNT(a6)
  438.     bclr #LIBB_DELEXP,db_Flags(a6)
  439.     move.l a6,d0
  440.     rts
  441.  
  442. Close:
  443.     moveq.l #0,d0
  444.     subq.w #1,LIB_OPENCNT(a6)
  445.     bne.s   stillopen
  446.     btst #LIBB_DELEXP,db_Flags(a6)
  447.     beq.s   stillopen
  448.     bsr Expunge
  449. stillopen:
  450.     rts
  451.  
  452. Expunge:
  453.     movem.l d2/a5/a6,-(sp)
  454.     move.l a6,a5
  455.     tst.w   LIB_OPENCNT(a5)
  456.     beq.s   notopen
  457.     bset #LIBB_DELEXP,db_Flags(a5)
  458.     moveq.l #0,d0
  459.     bra expungeend
  460. notopen:
  461.     move.l db_SegList(a5),d2
  462.     move.l a5,a1
  463.     move.l 4,a6
  464.     jsr _LVORemove(a6)
  465.  
  466.     move.l db_DOSBase(a5),a1
  467.     jsr _LVOCloseLibrary(a6)
  468.     move.l db_IntuitionBase(a5),a1
  469.     jsr _LVOCloseLibrary(a6)
  470.     move.l db_GfxBase(a5),a1
  471.     jsr _LVOCloseLibrary(a6)
  472.     move.l db_LayersBase(a5),a1
  473.     jsr _LVOCloseLibrary(a6)
  474.  
  475.     moveq.l #0,d0
  476.     move.l a5,a1
  477.     move.w LIB_NEGSIZE(a5),d0
  478.     sub.l d0,a1
  479.     add.w LIB_POSSIZE(a5),d0
  480.     move.l 4,a6
  481.     jsr _LVOFreeMem(a6)
  482.     move.l d2,d0
  483.  
  484. expungeend:
  485.     movem.l (sp)+,d2/a5/a6
  486.     rts
  487.  
  488. Null:
  489.     moveq.l #0,d0
  490.     rts
  491.  
  492. LParsePattern:
  493.     moveq.l #0,d0
  494.     bra doparse
  495. LParsePatternI:
  496.     moveq.l #1,d0
  497. doparse:
  498.     movem.l a2-a6/d2-d7,-(sp)
  499.     move.l d0,-(sp)
  500.     move.l a1,-(sp)
  501.     move.l a0,-(sp)
  502.     jsr _DoParsePattern
  503.     add.l #12,sp
  504.     movem.l (sp)+,a2-a6/d2-d7
  505.     rts
  506.  
  507. LMatchPattern:
  508.     moveq.l #0,d0
  509.     bra domatch
  510. LMatchPatternI:
  511.     moveq.l #1,d0
  512. domatch:
  513.     movem.l a2-a6/d2-d7,-(sp)
  514.     move.l d0,-(sp)
  515.     move.l a1,-(sp)
  516.     move.l a0,-(sp)
  517.     jsr _DoMatchPattern
  518.     add.l #12,sp
  519.     movem.l (sp)+,a2-a6/d2-d7
  520.     rts
  521.  
  522. DoObjectText:
  523.     movem.l a2-a6/d2-d7,-(sp)
  524.     move.l d4,-(sp)
  525.     move.l a1,-(sp)
  526.     move.l d3,-(sp)
  527.     move.l d2,-(sp)
  528.     move.l d1,-(sp)
  529.     move.l d0,-(sp)
  530.     move.l a0,-(sp)
  531.     jsr _R_ObjectText
  532.     add.l #28,sp
  533.     movem.l (sp)+,a2-a6/d2-d7
  534.     rts
  535.  
  536. FixSliderBody:
  537.     movem.l a2-a6/d2-d7,-(sp)
  538.     move.l d2,-(sp)
  539.     move.l d1,-(sp)
  540.     move.l d0,-(sp)
  541.     move.l a1,-(sp)
  542.     move.l a0,-(sp)
  543.     jsr _DoFixSliderBody
  544.     add.l #20,sp
  545.     movem.l (sp)+,a2-a6/d2-d7
  546.     rts
  547.  
  548. FixSliderPot:
  549.     movem.l a2-a6/d2-d7,-(sp)
  550.     move.l d3,-(sp)
  551.     move.l d2,-(sp)
  552.     move.l d1,-(sp)
  553.     move.l d0,-(sp)
  554.     move.l a1,-(sp)
  555.     move.l a0,-(sp)
  556.     jsr _DoFixSliderPot
  557.     add.l #24,sp
  558.     movem.l (sp)+,a2-a6/d2-d7
  559.     rts
  560.  
  561. GetSliderPos:
  562.     movem.l a2-a6/d2-d7,-(sp)
  563.     move.l d1,-(sp)
  564.     move.l d0,-(sp)
  565.     move.l a0,-(sp)
  566.     jsr _DoGetSliderPos
  567.     add.l #12,sp
  568.     movem.l (sp)+,a2-a6/d2-d7
  569.     rts
  570.  
  571.     END
  572.